home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / PASCAL1.LS < prev    next >
Text File  |  1995-12-31  |  615b  |  19 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Pascal1.ls    │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╚═════════════════════════════════════════════════╝
  8. # Only even recursion levels will produce an object.
  9. 7
  10. 45
  11. 3
  12. C
  13. C=[[Bff|B]ff<<--ff|B]++ff^^ff|B
  14. A=c(2){[[++f][^^f]f[+++"(1.4142)f]{[^^^"(1.4142)f&+++f]}]}['(0.5)B]++f--
  15. B=[[AA++^^^"(1.4142)f"(.7071)^f|&&A]fA]++ff-- 
  16. {=_
  17. }=_
  18. @
  19.